home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 1.iso / ARGONET / PD / MATHS / RLAB / RLAB125.ZIP / !RLaB / examples / fac < prev    next >
Text File  |  1995-05-17  |  158b  |  14 lines
  1. //
  2. // Fac.r (the slowest fac(), but the most interesting)
  3. //
  4.  
  5. fac = function(a) 
  6. {
  7.   if(a <= 1) 
  8.   {
  9.       return 1;
  10.   else
  11.       return a*$self(a-1);
  12.   }
  13. };
  14.